/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / inputsub.new

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| ff 68 19 0a 00 3a 8f d9 | 2a 2a 2a 2a 2a 2a 2a 2a |.h...:..|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 20 49 |********|****** I|
|00000020| 4e 50 55 54 20 48 41 4e | 44 4c 45 52 20 53 55 42 |NPUT HAN|DLER SUB|
|00000030| 52 4f 55 54 49 4e 45 20 | 2a 2a 2a 2a 2a 2a 2a 2a |ROUTINE |********|
|00000040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000050| 2a 2a 2a 00 bb 19 0b 00 | 3a 8f d9 2a 20 20 20 20 |***.....|:..*    |
|00000060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000a0| 20 20 20 20 20 2a 00 0e | 1a 0c 00 3a 8f d9 2a 20 |     *..|...:..* |
|000000b0| 20 20 20 49 66 20 79 6f | 75 20 66 69 6e 64 20 74 |   If yo|u find t|
|000000c0| 68 69 73 20 72 6f 75 74 | 69 6e 65 20 75 73 65 66 |his rout|ine usef|
|000000d0| 75 6c 2c 20 70 6c 65 61 | 73 65 20 73 65 6e 64 20 |ul, plea|se send |
|000000e0| 24 35 2e 30 30 20 74 6f | 20 74 68 65 20 61 75 74 |$5.00 to| the aut|
|000000f0| 68 6f 72 2e 20 20 20 20 | 2a 00 61 1a 0d 00 3a 8f |hor.    |*.a...:.|
|00000100| d9 2a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.*      |        |
|00000110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000130| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000140| 20 20 20 20 20 20 20 20 | 20 20 20 2a 00 b4 1a 0e |        |   *....|
|00000150| 00 3a 8f d9 2a 20 20 20 | 20 20 20 20 20 20 20 57 |.:..*   |       W|
|00000160| 2e 20 52 6f 62 65 72 74 | 20 53 65 69 74 7a 20 20 |. Robert| Seitz  |
|00000170| 20 31 31 37 34 39 20 4c | 69 70 73 65 79 20 52 6f | 11749 L|ipsey Ro|
|00000180| 61 64 20 20 20 54 61 6d | 70 61 2c 20 46 4c 20 20 |ad   Tam|pa, FL  |
|00000190| 33 33 36 31 38 20 20 20 | 20 20 20 20 20 20 2a 00 |33618   |      *.|
|000001a0| 07 1b 0f 00 3a 8f d9 2a | 20 20 20 20 20 20 20 20 |....:..*|        |
|000001b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001f0| 20 2a 00 5a 1b 10 00 3a | 8f d9 2a 2a 2a 2a 2a 2a | *.Z...:|..******|
|00000200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000210| 2a 2a 2a 20 43 6f 70 79 | 72 69 67 68 74 20 28 63 |*** Copy|right (c|
|00000220| 29 20 31 39 38 34 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |) 1984 *|********|
|00000230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000240| 2a 2a 2a 2a 2a 00 62 1b | 11 00 3a 8f d9 00 b0 1b |*****.b.|..:.....|
|00000250| 12 00 3a 8f d9 20 54 69 | 72 65 64 20 6f 66 20 79 |..:.. Ti|red of y|
|00000260| 6f 75 72 20 73 63 72 65 | 65 6e 20 6c 69 6e 65 20 |our scre|en line |
|00000270| 64 69 73 61 70 70 65 61 | 72 69 6e 67 20 69 66 20 |disappea|ring if |
|00000280| 74 68 65 20 45 73 63 61 | 70 65 20 6b 65 79 20 69 |the Esca|pe key i|
|00000290| 73 20 70 72 65 73 73 65 | 64 20 3f 00 00 1c 13 00 |s presse|d ?.....|
|000002a0| 3a 8f d9 20 54 69 72 65 | 64 20 6f 66 20 77 61 74 |:.. Tire|d of wat|
|000002b0| 63 68 69 6e 67 20 74 68 | 65 20 44 65 6c 65 74 65 |ching th|e Delete|
|000002c0| 20 6b 65 79 20 64 72 61 | 67 67 69 6e 67 20 79 6f | key dra|gging yo|
|000002d0| 75 72 20 64 69 73 70 6c | 61 79 20 66 72 6f 6d 20 |ur displ|ay from |
|000002e0| 74 68 65 20 72 69 67 68 | 74 20 3f 00 3f 1c 14 00 |the righ|t ?.?...|
|000002f0| 3a 8f d9 20 54 69 72 65 | 64 20 6f 66 20 63 6f 64 |:.. Tire|d of cod|
|00000300| 69 6e 67 20 66 69 65 6c | 64 20 4c 45 4e 20 74 65 |ing fiel|d LEN te|
|00000310| 73 74 73 20 66 6f 72 20 | 65 76 65 72 79 20 69 6e |sts for |every in|
|00000320| 70 75 74 20 69 74 65 6d | 20 3f 00 7e 1c 15 00 3a |put item| ?.~...:|
|00000330| 8f d9 20 2e 2e 2e 2e 2e | 2e 2e 2e 2e 20 49 66 20 |.. .....|.... If |
|00000340| 73 6f 2c 20 68 65 72 65 | 27 73 20 79 6f 75 72 20 |so, here|'s your |
|00000350| 61 6e 73 77 65 72 20 2e | 2e 2e 2e 2e 2e 2e 2e 2e |answer .|........|
|00000360| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 00 86 1c 16 00 3a 8f |........|......:.|
|00000370| d9 00 d9 1c 17 00 3a 8f | d9 20 54 68 65 20 66 6f |......:.|. The fo|
|00000380| 6c 6c 6f 77 69 6e 67 20 | 6c 69 6e 65 73 20 6f 66 |llowing |lines of|
|00000390| 20 63 6f 64 65 20 69 6c | 6c 75 73 74 72 61 74 65 | code il|lustrate|
|000003a0| 20 74 68 65 20 75 73 65 | 20 6f 66 20 74 68 65 20 | the use| of the |
|000003b0| 73 75 62 72 6f 75 74 69 | 6e 65 2e 2e 2e 52 55 4e |subrouti|ne...RUN|
|000003c0| 20 69 74 2e 00 e1 1c 18 | 00 3a 8f d9 00 f6 1c 19 | it.....|.:......|
|000003d0| 00 c9 20 dd 3a c8 20 11 | 2c 11 3a a0 20 0f 50 3a |.. .:. .|,.:. .P:|
|000003e0| c0 00 fe 1c 1a 00 3a 8f | d9 00 3e 1d 1b 00 ca 20 |......:.|..>.... |
|000003f0| 16 2c 0f 0a 3a 91 20 22 | 45 6e 74 65 72 20 44 61 |.,..:. "|Enter Da|
|00000400| 74 65 20 6f 66 20 4f 72 | 64 65 72 20 3a 20 22 3b |te of Or|der : ";|
|00000410| 3a 8d 20 0e 88 13 3a 8d | 20 0e 40 1f 20 20 3a 8f |:. ...:.| .@.  :.|
|00000420| d9 47 65 74 20 44 61 74 | 65 00 78 1d 1c 00 ca 20 |.Get Dat|e.x.... |
|00000430| 18 2c 0f 0a 3a 91 20 22 | 45 6e 74 65 72 20 43 75 |.,..:. "|Enter Cu|
|00000440| 73 74 6f 6d 65 72 20 4e | 61 6d 65 20 3a 20 22 3b |stomer N|ame : ";|
|00000450| 3a 8d 20 0e 88 13 3a 4d | 41 58 e7 0f 14 3a 8d 20 |:. ...:M|AX...:. |
|00000460| 0e 70 17 00 a3 1d 1d 00 | 43 55 53 54 24 e7 58 24 |.p......|CUST$.X$|
|00000470| 20 20 20 3a 8f d9 53 61 | 76 65 20 58 24 20 69 6e |   :..Sa|ve X$ in|
|00000480| 20 79 6f 75 72 20 76 61 | 72 69 61 62 6c 65 00 df | your va|riable..|
|00000490| 1d 1e 00 ca 20 0f 0a 2c | 0f 10 3a 91 20 22 43 6f |.... ..,|..:. "Co|
|000004a0| 72 72 65 63 74 20 3f 20 | 28 59 2f 4e 29 20 3a 20 |rrect ? |(Y/N) : |
|000004b0| 22 3b 3a 8d 20 0e 88 13 | 3a 4d 41 58 e7 12 3a 8d |";:. ...|:MAX..:.|
|000004c0| 20 0e 70 17 3a 8d 20 0e | 58 1b 00 f2 1d 1f 00 8b | .p.:. .|X.......|
|000004d0| 20 58 24 e7 22 59 22 20 | cd 20 0e 22 00 00 10 1e | X$."Y" |. ."....|
|000004e0| 20 00 8b 20 58 24 e7 22 | 4e 22 20 cd 20 0e 1b 00 | .. X$."|N" . ...|
|000004f0| 20 3a a1 20 c5 3a 89 20 | 0e 1e 00 00 18 1e 21 00 | :. .:. |......!.|
|00000500| 3a 8f d9 00 1e 1e 22 00 | 81 00 26 1e 23 00 3a 8f |:.....".|..&.#.:.|
|00000510| d9 00 77 1e 24 00 3a 8f | d9 20 59 6f 75 2c 20 6f |..w.$.:.|. You, o|
|00000520| 66 20 63 6f 75 72 73 65 | 2c 20 6d 61 79 20 73 65 |f course|, may se|
|00000530| 74 20 52 52 20 61 6e 64 | 20 43 43 20 69 66 20 35 |t RR and| CC if 5|
|00000540| 30 30 30 20 69 73 20 6e | 6f 74 20 61 70 70 72 6f |000 is n|ot appro|
|00000550| 70 72 69 61 74 65 2e 20 | 20 4e 6f 74 65 20 6c 69 |priate. | Note li|
|00000560| 6e 65 00 c6 1e 25 00 3a | 8f d9 20 38 30 38 30 2e |ne...%.:|.. 8080.|
|00000570| 2e 2e 2e 6c 6f 77 65 72 | 20 6c 69 6d 69 74 20 6f |...lower| limit o|
|00000580| 6e 20 59 59 25 20 69 73 | 20 73 75 62 6a 65 63 74 |n YY% is| subject|
|00000590| 20 74 6f 20 79 6f 75 72 | 20 72 65 71 75 69 72 65 | to your| require|
|000005a0| 6d 65 6e 74 73 2e 20 20 | 4e 6f 74 65 20 74 68 61 |ments.  |Note tha|
|000005b0| 74 00 17 1f 26 00 3a 8f | d9 20 37 30 30 30 20 63 |t...&.:.|. 7000 c|
|000005c0| 6f 6e 76 65 72 74 73 20 | 6f 6e 6c 79 20 6c 6f 77 |onverts |only low|
|000005d0| 65 72 20 63 61 73 65 20 | 6c 65 74 74 65 72 73 2c |er case |letters,|
|000005e0| 20 61 6c 6c 20 65 6c 73 | 65 20 69 73 20 75 6e 63 | all els|e is unc|
|000005f0| 68 61 6e 67 65 64 2e 20 | 20 41 6c 73 6f 2c 20 79 |hanged. | Also, y|
|00000600| 6f 75 00 67 1f 27 00 3a | 8f d9 20 6d 61 79 20 77 |ou.g.'.:|.. may w|
|00000610| 69 73 68 20 74 6f 20 72 | 65 6d 6f 76 65 20 52 45 |ish to r|emove RE|
|00000620| 54 55 52 4e 20 66 72 6f | 6d 20 35 30 31 30 20 61 |TURN fro|m 5010 a|
|00000630| 6e 64 20 66 61 6c 6c 20 | 74 68 72 6f 75 67 68 2c |nd fall |through,|
|00000640| 20 62 75 74 20 74 68 65 | 6e 20 79 6f 75 20 6d 75 | but the|n you mu|
|00000650| 73 74 00 b4 1f 28 00 3a | 8f d9 20 73 65 74 20 52 |st...(.:|.. set R|
|00000660| 52 20 61 6e 64 20 43 43 | 20 66 6f 72 20 64 61 74 |R and CC| for dat|
|00000670| 65 73 2e 20 20 44 6f 6e | 27 74 20 66 6f 72 67 65 |es.  Don|'t forge|
|00000680| 74 20 74 6f 20 73 65 74 | 20 4d 41 58 20 28 65 78 |t to set| MAX (ex|
|00000690| 63 65 70 74 20 66 6f 72 | 20 64 61 74 65 29 2e 00 |cept for| date)..|
|000006a0| bc 1f 29 00 3a 8f d9 00 | 0b 20 87 13 3a 8f d9 20 |..).:...|. ..:.. |
|000006b0| 49 6e 70 75 74 20 48 61 | 6e 64 6c 65 72 20 53 75 |Input Ha|ndler Su|
|000006c0| 62 72 6f 75 74 69 6e 65 | 20 2d 2d 2d 2d 2d 2d 2d |broutine| -------|
|000006d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006f0| 2d 2d 2d 2d 2d 2d 00 4b | 20 88 13 3a 8f d9 2d 2d |------.K| ..:..--|
|00000700| 2d 2d 53 45 54 20 43 55 | 52 53 4f 52 20 4c 4f 43 |--SET CU|RSOR LOC|
|00000710| 41 54 49 4f 4e 20 2d 2d | 20 52 52 2c 20 43 43 20 |ATION --| RR, CC |
|00000720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000730| 2d 2d 2d 2d 2d 2d 00 5f | 20 92 13 52 52 e7 db 3a |------._| ..RR..:|
|00000740| 43 43 e7 ff 91 28 11 29 | 3a 8e 00 ac 20 70 17 3a |CC...(.)|:... p.:|
|00000750| 8f d9 2d 2d 2d 2d 49 4e | 50 55 54 20 53 55 42 52 |..----IN|PUT SUBR|
|00000760| 4f 55 54 49 4e 45 2d 2d | 2d 2d 4e 45 45 44 53 20 |OUTINE--|--NEEDS |
|00000770| 52 52 2c 20 43 43 2c 20 | 4d 41 58 20 2d 2d 2d 2d |RR, CC, |MAX ----|
|00000780| 52 45 54 55 52 4e 53 20 | 58 24 20 2d 2d 2d 2d 2d |RETURNS |X$ -----|
|00000790| 2d 2d 2d 2d 2d 2d 2d 00 | cc 20 7a 17 58 24 e7 22 |-------.|. z.X$."|
|000007a0| 22 3a ca 20 52 52 2c 43 | 43 3a 91 20 d6 28 4d 41 |":. RR,C|C:. .(MA|
|000007b0| 58 2c 22 5f 22 29 3b 00 | f4 20 84 17 ca 20 52 52 |X,"_");.|. ... RR|
|000007c0| 2c 43 43 e9 ff 92 28 58 | 24 29 2c 12 3a 5a 24 e7 |,CC...(X|$),.:Z$.|
|000007d0| de 3a 8b 20 5a 24 e7 22 | 22 20 cd 20 0e 84 17 00 |.:. Z$."|" . ....|
|000007e0| 29 21 8e 17 8b 20 5a 24 | e7 ff 96 28 0f 0d 29 20 |)!... Z$|...(..) |
|000007f0| cd 20 ca 2c 2c 11 3a 91 | 20 ff 98 28 4d 41 58 ea |. .,,.:.| ..(MAX.|
|00000800| ff 92 28 58 24 29 29 3b | 3a 8e 20 20 20 3a 8f d9 |..(X$));|:.   :..|
|00000810| 45 78 69 74 00 57 21 98 | 17 8b 20 5a 24 e7 ff 96 |Exit.W!.|.. Z$...|
|00000820| 28 19 29 20 ee 20 ff 92 | 28 58 24 29 e6 11 20 cd |(.) . ..|(X$).. .|
|00000830| 20 0e b6 17 20 20 3a 8f | d9 42 61 63 6b 73 70 61 | ...  :.|.Backspa|
|00000840| 63 65 00 89 21 a2 17 8b | 20 ff 92 28 5a 24 29 e7 |ce..!...| ..(Z$).|
|00000850| 13 20 ef 20 ff 92 28 58 | 24 29 e7 4d 41 58 20 ef |. . ..(X|$).MAX .|
|00000860| 20 ff 95 28 5a 24 29 e8 | 0f 20 20 cd 20 c5 3a 89 | ..(Z$).|.  . .:.|
|00000870| 20 0e 84 17 00 a2 21 ac | 17 58 24 e7 58 24 e9 5a | .....!.|.X$.X$.Z|
|00000880| 24 3a 91 20 5a 24 3b 3a | 89 20 0e 84 17 00 e7 21 |$:. Z$;:|. .....!|
|00000890| b6 17 ff 83 28 58 24 2c | ff 92 28 58 24 29 29 e7 |....(X$,|..(X$)).|
|000008a0| 22 20 22 3a 58 24 e7 ff | 81 28 58 24 2c ff 92 28 |" ":X$..|.(X$,..(|
|000008b0| 58 24 29 ea 12 29 3a ca | 20 52 52 2c 43 43 e9 ff |X$)..):.| RR,CC..|
|000008c0| 92 28 58 24 29 3a 91 20 | 22 5f 22 3b 3a 89 20 0e |.(X$):. |"_";:. .|
|000008d0| 84 17 00 26 22 58 1b 3a | 8f d9 20 2d 2d 2d 2d 43 |...&"X.:|.. ----C|
|000008e0| 4f 4e 56 45 52 54 20 49 | 4e 50 55 54 20 54 4f 20 |ONVERT I|NPUT TO |
|000008f0| 55 50 50 45 52 20 43 41 | 53 45 2d 2d 2d 2d 2d 2d |UPPER CA|SE------|
|00000900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000910| 2d 00 75 22 62 1b 82 20 | 5a e7 12 20 cc 20 ff 92 |-.u"b.. |Z.. . ..|
|00000920| 28 58 24 29 3a 5a 41 e7 | ff 95 28 ff 83 28 58 24 |(X$):ZA.|..(..(X$|
|00000930| 2c 5a 2c 12 29 29 3a 8b | 20 5a 41 e6 0f 60 20 ee |,Z,.)):.| ZA..` .|
|00000940| 20 5a 41 e8 0f 7b 20 cd | 20 ff 83 28 58 24 2c 5a | ZA..{ .| ..(X$,Z|
|00000950| 2c 12 29 e7 ff 96 28 5a | 41 20 ee 20 0c df 00 29 |,.)...(Z|A . ...)|
|00000960| 00 7d 22 6c 1b 83 3a 8e | 00 bc 22 40 1f 3a 8f d9 |.}"l..:.|.."@.:..|
|00000970| 2d 2d 2d 2d 2d 44 41 54 | 45 20 53 55 42 52 4f 55 |-----DAT|E SUBROU|
|00000980| 54 49 4e 45 2d 2d 2d 2d | 52 45 54 55 52 4e 53 20 |TINE----|RETURNS |
|00000990| 4d 4d 25 2c 20 44 44 25 | 2c 20 59 59 25 20 2d 2d |MM%, DD%|, YY% --|
|000009a0| 2d 2d 2d 2d 2d 2d 2d 00 | e2 22 4a 1f ca 20 52 52 |-------.|."J.. RR|
|000009b0| 2c 43 43 3a 91 20 22 5f | 5f 2f 5f 5f 2f 5f 5f 22 |,CC:. "_|_/__/__"|
|000009c0| 3b 3a 4d 41 58 e7 13 3a | 8d 20 0e 70 17 00 0c 23 |;:MAX..:|. .p...#|
|000009d0| 54 1f 4d 4d 25 e7 ff 94 | 28 58 24 29 3a 8b 20 4d |T.MM%...|(X$):. M|
|000009e0| 4d 25 e8 12 20 ef 20 4d | 4d 25 e6 0f 0c 20 cd 20 |M%.. . M|M%... . |
|000009f0| c5 3a 89 20 0e 4a 1f 00 | 2e 23 5e 1f ca 20 52 52 |.:. .J..|.#^.. RR|
|00000a00| 2c 43 43 3a 91 20 d7 20 | 22 23 23 22 3b 4d 4d 25 |,CC:. . |"##";MM%|
|00000a10| 3b 3a 43 43 e7 43 43 e9 | 14 00 38 23 68 1f 8d 20 |;:CC.CC.|..8#h.. |
|00000a20| 0e 70 17 00 62 23 72 1f | 44 44 25 e7 ff 94 28 58 |.p..b#r.|DD%...(X|
|00000a30| 24 29 3a 8b 20 44 44 25 | e8 12 20 ef 20 44 44 25 |$):. DD%|.. . DD%|
|00000a40| e6 0f 1f 20 cd 20 c5 3a | 89 20 0e 68 1f 00 84 23 |... . .:|. .h...#|
|00000a50| 7c 1f ca 20 52 52 2c 43 | 43 3a 91 20 d7 20 22 23 ||.. RR,C|C:. . "#|
|00000a60| 23 22 3b 44 44 25 3b 3a | 43 43 e7 43 43 e9 14 00 |#";DD%;:|CC.CC...|
|00000a70| 8e 23 86 1f 8d 20 0e 70 | 17 00 b9 23 90 1f 59 59 |.#... .p|...#..YY|
+--------+-------------------------+-------------------------+--------+--------+